home *** CD-ROM | disk | FTP | other *** search
Wrap
Text File | 1993-02-10 | 12.0 KB | 130 lines | [ TEXT/OMEG]
(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2"; MacintoshStandardFontEncoding; fontset = title, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, M7, bold, L3, e8, 24, "Times"; fontset = subtitle, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 18, "New York"; fontset = subsubtitle, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L2, e50, 14, "New York"; fontset = section, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, grayBox, M22, bold, L2, a20, 14, "New York"; fontset = subsection, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, blackBox, M19, bold, L2, a15, 12, "New York"; fontset = subsubsection, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, whiteBox, M18, bold, L2, a12, 10, "New York"; fontset = text, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; fontset = smalltext, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times"; fontset = input, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L2, 12, "Courier"; fontset = output, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, output, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = message, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L2, 12, "Courier"; fontset = print, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = info, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = postscript, PostScript, formatAsPostScript, evaluateAsCurrentKernel, output, inactive, nowordwrap, preserveAspect, groupLikeGraphics, M7, l35, w160, h162, L2, 12, "Courier"; fontset = name, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L2, 10, "Geneva"; fontset = header, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times"; fontset = leftheader, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, nohscroll, preserveAspect, L2, 12, "Times"; fontset = footer, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "Times"; fontset = leftfooter, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, preserveAspect, center, L2, 12, "Times"; fontset = help, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Geneva"; fontset = clipboard, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = completions, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = special1, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = special2, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "New York"; fontset = special3, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, right, M7, L2, 12, "New York"; fontset = special4, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = special5, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; paletteColors = 128; ] :[font = title; inactive; preserveAspect; startGroup] Spinning Stellated Icosahedron (for color monitors) :[font = text; inactive; preserveAspect] This Notebook contains an animated “movie” produced using built-in Mathematica functions and a standard Mathematica package. To show the movie, • Scroll until the first graphics cell is completely visible in the window. (The movie is shown in this cell.) • Double-click the first graphics cell to start the movie. Click again anywhere to stop the animation. ;[s] 5:0,0;67,1;78,0;105,1;116,0;380,-1; 2:3,14,9,Times,0,12,0,0,0;2,14,9,Times,2,12,0,0,0; :[font = text; inactive; preserveAspect] See the file Read This First! for a more detailed explanation of how to run a movie, and how to control its speed and direction. Mathematica generates all graphics in PostScript, but the images here were saved as bitmaps to conserve disk space. ;[s] 5:0,0;13,1;29,0;129,2;141,0;246,-1; 3:3,14,9,Times,0,12,0,0,0;1,14,9,Times,1,12,0,0,0;1,14,9,Times,2,12,0,0,0; :[font = postscript; PICT; formatAsPICT; output; inactive; Cclosed; dontPreserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; startGroup; pictureID = 29265; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 5050; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 13715; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 19388; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25199; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7923; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 24329; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 15271; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7734; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 9024; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 29355; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 2655; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4077; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 18271; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23528; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4166; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7056; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 9504; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 28844; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25330; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 8673; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23027; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 27967; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 30683; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 26434; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 879; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 3447; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 31372; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 8188; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4618; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 929; animationSpeed = 8] :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; endGroup; endGroup; pictureID = 1810; animationSpeed = 8] ^*)